program prog;
	procedure contarNumBilletes(var cantidad : integer; tamanyoBillete: integer);
	var
		billetes : integer;
	begin
		billetes := 0;
		while cantidad >= tamanyoBillete do
		begin
			cantidad := cantidad - tamanyoBillete;
			billetes := billetes + 1;
		end;

		writeln('Total de billetes de ', tamanyoBillete);
		writeln(billetes);
		writeln('Te sobran: ', cantidad);
	end;

var
	cantidad : integer;
	tam : integer;

begin

	writeln('Dime una cantidad: ');
	readln(cantidad);

	contarNumBilletes(cantidad, 500);
	contarNumBilletes(cantidad, 200);
	contarNumBilletes(cantidad, 100);
	contarNumBilletes(cantidad, 50);
	contarNumBilletes(cantidad, 20);
	contarNumBilletes(cantidad, 10);
	contarNumBilletes(cantidad, 5);
	readln()
end.
